www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Function/Vote.asp

    <!--#include file="../conn.asp"-->
<!--#include file="Function.asp"-->
<%
Set rs = Server.CreateObject(YWNT_TMS_RS)
set rs=conn.execute("select * from YWNT_TMS_VoteClass where id="&NoSqlHack(Request.QueryString("id")))
vote="vote"&Request.QueryString("id")
response.write vote&"="&""""&""&""""&chr(10)

'如果投票不存在则提示出错
if rs.eof then
response.write vote&"="&vote&"+"&""""&"没有该投票;"&""""&chr(10)
response.write "document.write ("&vote&");"
response.end
end if

'如果有投票，则读取相关资料
VoteName=rs("VoteName")
VoteType=rs("VoteType")
id=rs("id")
rs.close
Select Case VoteType
case 1
style="checkbox"
case 0
style="radio"
end Select
'读取选择支
sql="select * from YWNT_TMS_Vote where VoteID="&id
rs.open sql,conn,3,1
response.write vote&"="&vote&"+"&""""&"<style type='text/css'>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<!--"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"td {"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"font-size: 12px;"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"}"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"-->"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</style>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<form name=form"&vote&" method='POST'>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<table border='0' width='100%' cellspacing='0' cellpadding='0'>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<tr>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<td width='100%' height='25'>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<p align='center'><b>"&VoteName&"<b></td>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</tr>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<tr>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<td width='100%'>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<div align='center'>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<center>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<table border='0' width='90%' cellspacing='0' cellpadding='0'>"&""""&chr(10)

'排列选择支
do while not rs.eof
response.write vote&"="&vote&"+"&""""&"<tr>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<td width='100%'><input type='"&style&"' name='voted' value='"&rs("id")&"' size='20'><font Color='"&rs("Color")&"'>"&rs("Vote")&"</font></td>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</tr>"&""""&chr(10)
rs.movenext
loop


response.write vote&"="&vote&"+"&""""&"</table>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</center>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</div>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</td>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</tr>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<tr>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<td width='100%' valign='bottom' align='center' height='30'><img src='"&GetConfig("WebiInstallDir")&"Function/Images/vote.gif' onclick='tou"&vote&"();' style='cursor: hand;'>&nbsp;&nbsp;<img style='cursor: hand;' src='"&GetConfig("WebiInstallDir")&"Function/Images/voteck.gif' onclick=window.open('"&GetConfig("WebiInstallDir")&"Function/showvote.asp?id="&id&"','','width=650,height=300,resizable=1,scrollbars=1');></td>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</tr>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"</table></form>"&""""&chr(10)
response.write vote&"="&vote&"+"&""""&"<\script>function tou"&vote&"(){window.open('about:blank','tou','width=650,height=300,resizable=1,scrollbars=1');form"&vote&".action='"&GetConfig("WebiInstallDir")&"Function/Votetou.asp?id="&id&"&style="&style&"';form"&vote&".target='tou';form"&vote&".submit();}</\script>"&""""&chr(10)

'释放对象
rs.close
set rs=nothing
call connclose()
response.write "document.write ("&vote&")"&chr(10)
%>